home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / lsp / numlib.data < prev    next >
Encoding:
Text File  |  1994-05-10  |  3.0 KB  |  9 lines
  1.        
  2. #(#! 
  3. (lisp::in-package (lisp::quote user::lisp))#! 
  4. (lisp::export (lisp::quote (lisp::isqrt lisp::abs lisp::phase lisp::signum lisp::cis lisp::asin lisp::acos lisp::sinh lisp::cosh lisp::tanh lisp::asinh lisp::acosh lisp::atanh lisp::rational lisp::rationalize lisp::ffloor lisp::fround lisp::ftruncate lisp::fceiling lisp::lognand lisp::lognor lisp::logandc1 lisp::logandc2 lisp::logorc1 lisp::logorc2 lisp::lognot lisp::logtest lisp::byte lisp::byte-size lisp::byte-position lisp::ldb lisp::ldb-test lisp::mask-field lisp::dpb lisp::deposit-field)))#! 
  5. (lisp::in-package (lisp::quote lisp::system))
  6. #("~S is not a non-negative integer." lisp::nil 1.0F0 -1.0F0 2.0F0 "The argument, ~s, is a logarithmic singularity.~
  7.                     ~%Don't be foolish, GLS." system::x (lisp::float lisp::rational) 1.0S0 lisp::abs lisp::sinh lisp::cosh lisp::rationalp system::typecase-error-string lisp::logandc2 lisp::byte-position lisp::byte-size lisp::ldb lisp::mask-field lisp::dpb lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil (system::%init . #((system::warn-version 0) (lisp::proclaim (lisp::quote (lisp::optimize (lisp::safety 2) (lisp::space 3)))) (system::*make-constant (lisp::quote system::imag-one) #C(0.0F0 1.0F0)) (system::mfsfun (lisp::quote lisp::isqrt) 0 1) (system::mfsfun (lisp::quote lisp::abs) 1 1) (system::mfsfun (lisp::quote lisp::phase) 2 1) (system::mfsfun (lisp::quote lisp::signum) 3 1) (system::setvv 1 system::imag-one) (system::mfsfun (lisp::quote lisp::cis) 4 1) (system::mfsfun (lisp::quote lisp::asin) 5 1) (system::mfsfun (lisp::quote lisp::acos) 6 1) (system::mfsfun (lisp::quote lisp::sinh) 7 1) (system::mfsfun (lisp::quote lisp::cosh) 8 1) (system::mfsfun (lisp::quote lisp::tanh) 9 1) (system::mfsfun (lisp::quote lisp::asinh) 10 1) (system::mfsfun (lisp::quote lisp::acosh) 11 1) (system::mfsfun (lisp::quote lisp::atanh) 12 1) (system::mfsfun (lisp::quote lisp::rational) 13 1) (system::fset (lisp::quote lisp::rationalize) (lisp::symbol-function (lisp::quote lisp::rational))) (system::mf (lisp::quote lisp::ffloor) 14) (system::mf (lisp::quote lisp::fceiling) 15) (system::mf (lisp::quote lisp::ftruncate) 16) (system::mf (lisp::quote lisp::fround) 17) (system::mfsfun (lisp::quote lisp::lognand) 18 2) (system::mfsfun (lisp::quote lisp::lognor) 19 2) (system::mfsfun (lisp::quote lisp::logandc1) 20 2) (system::mfsfun (lisp::quote lisp::logandc2) 21 2) (system::mfsfun (lisp::quote lisp::logorc1) 22 2) (system::mfsfun (lisp::quote lisp::logorc2) 23 2) (system::mfsfun (lisp::quote lisp::lognot) 24 1) (system::mfsfun (lisp::quote lisp::logtest) 25 2) (system::mfsfun (lisp::quote lisp::byte) 26 2) (system::mfsfun (lisp::quote lisp::byte-size) 27 1) (system::mfsfun (lisp::quote lisp::byte-position) 28 1) (system::mfsfun (lisp::quote lisp::ldb) 29 2) (system::mfsfun (lisp::quote lisp::ldb-test) 30 2) (system::mfsfun (lisp::quote lisp::mask-field) 31 2) (system::mfsfun (lisp::quote lisp::dpb) 32 3) (system::mfsfun (lisp::quote lisp::deposit-field) 33 3))))
  8. )
  9.